home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #1 / Commodore_Disk_User_Vol.4_1_1990_-.d64 / mem scan (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  60 lines
  1. 10 a=a+1:if a=1 then load"spr.",8,1
  2. 15 u=0
  3. 20 px=81
  4. 30 py=24
  5. 50 poke 53280,0:poke 53281,15
  6. 90 scr=1184
  7. 100 mem=0
  8. 109 print""
  9. 110 print"[147]"
  10. 120 print"[158]                                        [146]"
  11. 130 print"[145] [146][144]f1-forward f3-backward f5-find f7-quit[158] [146]"
  12. 140 print"[145]                                        [146]"
  13. 150 print""
  14. 160 poke scr,nnmp:poke scr+1,42
  15. 170 if scr>2023 then goto 500
  16. 175 if mem<0 then mem=0
  17. 178 if mem>65280 then mem=65280
  18. 180 scr=scr+1:mem=mem+1
  19. 190 nnmp=peek(mem)
  20. 195 print"";mem;"    "
  21. 200 goto 160
  22. 500 rem choice
  23. 510 get a$:if a$="[133]"then goto 2000
  24. 520 if a$="[134]"then goto 2100
  25. 530 if a$="[135]"then goto 1000
  26. 540 if a$="[136]"then poke 53269,0:print"[147]":end
  27. 550 goto 500
  28. 1000 poke 53269,1:poke 53248,80:poke 53249,80:poke 53276,1
  29. 1010 poke 53287,12
  30. 1020 poke 53285,11
  31. 1030 poke 53286,1
  32. 1040 poke 53275,0
  33. 1050 poke 2040,160
  34. 1060 a=255-peek(56320)
  35. 1070 if a and 1 then px=px-8:u=u-40
  36. 1080 if a and 2 then px=px+8:u=u+40
  37. 1090 if a and 4 then py=py-8:u=u-1
  38. 1100 if a and 8 then py=py+8:u=u+1
  39. 1110 if a and 16 then goto 160
  40. 1115 if py>255 then poke 53264,1:py=0:ba=1
  41. 1116 if ba=1 then gosub 1200
  42. 1120 poke 53248,py
  43. 1130 poke 53249,px
  44. 1135 print"";u;"[157][157][157][157][157]      "
  45. 1150 goto 1060
  46. 1200 rem
  47. 1220 if py<0 then py=248:poke 53264,0:ba=0
  48. 1230 return
  49. 2000 rem forward
  50. 2010 scr=1184
  51. 2020 if mem>65280 then mem=63280:goto 160
  52. 2030 u=u+840
  53. 2040 goto 160
  54. 2100 rem backward
  55. 2110 scr=1184
  56. 2115 mem=mem-1680
  57. 2120 if mem<0 then mem=0:goto 160
  58. 2130 u=u-840
  59. 2140 goto 160
  60.